home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-04_1990_-_de_Side_A.d64 / [u] vertikal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  68 lines
  1. 0 poke53280,0:poke53281,0:print"[147][154]":gosub80
  2. 1 print"[196]ieses [208]rogramm dient zum [197]rstellen von
  3. 2 [153]"vertikalen (NULL)crollscreens aus mehreren
  4. 3 print"[205]ulticolor-[197]inzelbildern.
  5. 4 [153]"str$ie peekilder muessen alle den selben
  6. 5 print"[198]ilenamen besitzen, dem dann die
  7. 6 [153]"laufende (NULL)ahlnummer folgt, z.b.:
  8. 7 printchr$(34)"pic1"+chr$(34)
  9. 8 printchr$(34)"pic2"+chr$(34)
  10. 9 printchr$(34)"pic3"+chr$(34)"
  11. 10 [153]"usw.
  12. 11 print"[196]ie [198]arbinfo's werden nicht benutzt!
  13. 12 n$[178]"":[133]"ascilename";n$
  14. 13 [139]n$[178]""[167]12
  15. 14 [153]
  16. 15 an[178]0:[133]"atnnzahl der peekilder (2-16)";an
  17. 16 [139]an[177]16[176]an[179]2[167]15
  18. 17 [153]
  19. 18 ze[178]0:[153]"(NULL)ieviele gueltige (NULL)eilen besitzt jedes
  20. 19 input"[194]ild (2-24)";ze:ifze>24orze<2then18
  21. 20 print"[211]ystemdisk einlegen und [211]pace druecken!
  22. 21 [161]a$:[139]a$[179][177]" "[167]21
  23. 22 m$[178]n$:[134]b$(17):[129]t[178]1[164]16:[135]b$(t):[130]:[131]1,2,3,4,5,6,7,8,9,10,11,12,13
  24. 23 [131]14,15,16:e[178]1:dr[178]6000
  25. 24 [158]57812"(3)",8:[151]780,0:[151]781,192:[151]782,93:[158]65493
  26. 25 [153]"peekilderdisk einlegen und (NULL)pace druecken!
  27. 26 geta$:ifa$<>" "then26
  28. 27 print"[201]ch lade...
  29. 30 [129]t[178]1[164]an:n$[178]m$:n$[178]n$[170]b$(e)[170]"*":e[178]e[170]1
  30. 32 [158]57812n$,8:[151]780,0:[151]781,208:[151]782,132:[158]65493
  31. 35 [158]24000,34000,34999,dr,55:dr[178]dr[170]1000
  32. 36 [153]n$
  33. 37 [130]:[153]"right$ch generiere...
  34. 38 dr=6000:hi=24576
  35. 40 fort=1toan
  36. 42 e=ze*40
  37. 45 sys24000,dr,dr+e,hi,55
  38. 47 dr=dr+1000:hi=hi+e
  39. 50 next
  40. 55 print"[196]er [211]crollscreen ist fertig generiert.
  41. 57 n$[178]"":[133]"ascilename";n$
  42. 58 [139]n$[178]""[167]57
  43. 60 [153]"(NULL)avedisk einlegen und (NULL)pace druecken!"
  44. 61 [161]a$:[139]a$[179][177]" "[167]61
  45. 62 [158]57812n$,8:[151]193,0:[151]194,96
  46. 65 y[178][181](hi[173]256):x[178]hi[171](y[172]256)
  47. 67 [151]174,x:[151]175,y:[158]62954
  48. 69 [153]"(NULL)crollscreen (NULL)tartadr.: 24576
  49. 70 printtab(13)"[197]ndadr.:  "hi
  50. 72 print"[211]crollscreen laden und verschieben
  51. 73 [153]"siehe '[u] lade' und '[u] transfere'
  52. 74 end
  53. 80 print""tab(16)"[176][192][174]"
  54. 81 printtab(16)"[221][158][214][154][221]"
  55. 82 printtab(16)"[173][192][189]"
  56. 83 printtab(16)"[176][192][174]"
  57. 84 printtab(16)"[221][158]e[154][221]"
  58. 85 printtab(16)"[173][192][189]"
  59. 86 printtab(16)"[176][192][174]"
  60. 87 printtab(16)"[221][158]r[154][221]"
  61. 88 printtab(16)"[173][192][189]"
  62. 89 printtab(16)"[176][192][174]"
  63. 90 printtab(16)"[221][158]t[154][221][158]ikal[154]
  64. 91 [153][163]16)"/tanexp"
  65. 92 [153]" lenopyright 1989 by (NULL)aurien (NULL)oftware len(NULL)cont"
  66. 93 [161]a$:[139]a$[179][177]" "[167]93
  67. 95 [129]t[178]1[164]10:[153]:[130]:[142]
  68.